﻿Imports extranet.BE
Imports extranet.DA
Imports System.Collections.Generic
Imports System.IO

Public Class BCMensagem
    Public Shared Function AdicionarMensagem(ByVal objBEMensagem As BEMensagem) As Integer
        Dim objDAMensagem As New DAMensagem
        Return objDAMensagem.AddMensagem(objBEMensagem)
    End Function

    Public Shared Function Selecionar(ByVal strIdMensagem As String) As BEMensagem
        Dim objDAMensagem As New DAMensagem
        Dim objBEMensagem As BEMensagem
        objBEMensagem = objDAMensagem.SelecionarMensagensRankeado(strIdMensagem)
    objBEMensagem.UsuarioRemetente = BCUsuario.SelecionarPeloUsuario(objBEMensagem.Remetente)
        Return objBEMensagem
    End Function

    Public Shared Function BuscaMensagem(ByVal strIdMensagem As Integer) As BEMensagem
        Dim objDAMensagem As New DAMensagem
        Return objDAMensagem.BuscaMensagem(strIdMensagem)
    End Function

    Public Shared Sub Salvar(ByVal objBEMensagem As BEMensagem)
        Dim objDAMensagem As New DAMensagem
        objDAMensagem.SalvarMensagem(objBEMensagem)
    End Sub

  Public Shared Sub Deletar(ByVal objBEMensagem As BEMensagem)
    Dim objDAMensagem As New DAMensagem
    If objBEMensagem.Id > 0 Then objDAMensagem.ExcluirMensagem(objBEMensagem)
  End Sub

  Public Shared Function LerJustificativas(ByVal strCaminho As String) As List(Of String)
    Dim lstJustificativas As New List(Of String)
    Dim Arq() As String
    Arq = File.ReadAllLines(strCaminho)
    For Each strJust As String In Arq
      lstJustificativas.Add(strJust)
    Next
    Return lstJustificativas
  End Function
End Class
